home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
095
/
rfix0326.arc
/
BUL60326
next >
Wrap
Text File
|
1987-03-26
|
35KB
|
761 lines
============= Reported Bugs/Problems ==============
N O T E : These fixes are not part of the downloadable files on this system.
They are provided so that you may apply them to the copies of the
BASIC source code for RBBS which you have. These fixes will be
included in the next release of RBBS-PC.
CONVENTIONS: The temporary fixes are assigned numbers that correspond to the
month, day, and order in which they were reported. The fixes are
dated (if there are any) following the problem description. The
lines of source code that are changed/modified/added are
designated by the comment beginning in column 70 of "' TFMMDD#".
To download this file, go to the file subsystem and download the file BULLET6
with the command "d;bullet6;x". To download the file that contains the .MRG
files and appropriate .BAT files to apply the merges and re-compile the RBBS-PC
source code, download the file RFIX0326.ARC.
Summary of the temporary fixes to date:
Executable BASIC
Program Source Code DATE Cryptic Description of Problem
----------- ----------- -------- --------------------------------------------
RBBS-PC.EXE all modules 03/15/87 7:00 PM E.S.T. First release of CPC15-1A
CONFIG.EXE CONFIG.BAS 03/16/87 Error 5 in line 15780 configuring a new .DEF
RBBS-PC.EXE (none) 03/17/87 Carrier is dropped when exiting to DOS
RBBS-PC.EXE RBBS-PC.BAS 03/18/87 Some private messages are not handled right.
RBBS-PC.EXE RBBS-PC.BAS 03/20/87 DOORS were prohibited if 0 rings specified.
RBBSSUB1.BAS
RBBS-VAR.BAS
CONFIG.EXE CONFIG.BAS 03/21/87 On 0 rings the modem was initialized wrong.
CNFG-SUB.BAS 03/21/87
CONFIG.EXE CNFG-SUB.BAS 03/22/87 10-NET was not selectable as a LAN.
CONFIG.EXE CONFIG.BAS 03/23/87 CONFIG reset itself to "SHELL" when invoked.
RBBS-PC.EXE RBBSSUB1.BAS 03/24/87 Answer more reliably for "clone" modems.
RBBS-PC.EXE RBBS-PC.BAS 03/24/87 Correctly handle subscription expirations.
CONFIG.EXE CNFG-SUB.BAS 03/24/87 Allow access to screen 13 of CONFIG.
RBBS-PC.DOC (none) 03/24/87 Correct the documentation for Hayes 2400.
RBBS-PC.DOC (none) 03/24/87 Correct the documentation for LINKing.
APPENDIX.DOC (none) 03/24/87 Correct the documentation for Everex modems.
RBBS-PC.DOC (none) 03/24/87 Correct the documentaion for FMS.
RBBS-PC.EXE RBBSSUB1.BAS 03/25/87 Upper case did not support color graphics.
CONFIG.EXE CNFG-SUB.BAS 03/26/87 Line number out of order.
RBBS-PC.EXE RBBSSUB2.BAS 03/26/87 Files uploaded categorized ok if FMS unused.
--------------------------------TF031601---------------------------------------
CONFIG.BAS 03/16/87 When creating a new .DEF file for 15-1A or if config-
(Version 3.00) uring non-Hayes commands without including the command
"S0=" in the modem initialization command, an
"ERROR 5" would occur in line 15780 of CONFIG. This
fix is included in Version 3.01 of CONFIG. The fix to
Version 3.00 of CONFIG is to change both lines 15790
and the error trapping routines in line 60010 of
CONFIG.BAS as follows:
15790 FIRMWARE.INITIALIZE.COMMAND$= "AT&C1&D3B1E0V1M0S0=0&T5"
FIRMWARE.CLEAR.COMMAND$ = "AT&F"
FIRMWARE.WRITE.COMMAND$ = "&W"
USER.ANSWER.COMMAND$ = MODEM.ANSWER.COMMAND$
USER.COUNT.RINGS.COMMAND$ = MODEM.COUNT.RINGS.COMMAND$
USER.GO.OFFHOOK.COMMAND$ = MODEM.GO.OFFHOOK.COMMAND$
USER.INIT.COMMAND$ = MODEM.INIT.COMMAND$ ' TF031601
USER.RESET.COMMAND$ = MODEM.RESET.COMMAND$
USER.INITIALIZE.COMMAND$ = FIRMWARE.INITIALIZE.COMMAND$
USER.FIRMWARE.CLEAR.CMND$ = FIRMWARE.CLEAR.COMMAND$
USER.FIRMWARE.WRITE.CMND$ = FIRMWARE.WRITE.COMMAND$
RETURN
also include the following after line 60010 of CONFIG.BAS:
IF ERL = 15780 AND ERR = 5 AND _ ' TF031601
INSTR(USER.INIT.COMMAND$,"S0=") = 0 THEN _ ' TF031601
RESUME 16073 ' TF031601
--------------------------------TF031701---------------------------------------
RBBS-PC.EXE 03/17/87 RBBS-PC drops carrier when exiting to DOS
or when using external protocols. This was
due to inadvertently compiling RBBS-PC.EXE
with an unpatched version of the BASIC
library (i.e. the DTR patch had not been
applied to it). This can be corrected by
patching the RBBS-PC.EXE file for CPC15-1A
as follows:
Step 1 -- Rename RBBS-PC.EXE to RBBS-PC.EOE
Step 2 -- Enter the following command
DEBUG RBBS-PC.EOE
Step 3 -- Enter the following command
-R
Note the value in the CS register and add 2000 to it. This is to
be substituted wherever you see "XXXX" in the following steps.
Step 4 -- Enter the following command
s XXXX:0 FEEE 83 C2 04 32 C0
DOS will respond with
XXXX:7005
If you don't get this response, stop. If you do get this response
continue to Step 5.
Step 5 -- Enter the following command
a XXXX:7008
DOS will respond with
XXXX:7008
Step 6 -- Enter the following command and press enter.
mov al,1
Step 7 -- Press enter again.
Step 8 -- Enter the following command to write the patched file to disk
w
Step 9 -- Enter the following command to exit DEBUG
q
Step 10 -- Now rename RBBS-PC.EOE to RBBS-PC.EXE
--------------------------------TF031801---------------------------------------
RBBS-PC.EXE RBBS-PC.BAS 03/18/87 RBBS-PC does not always corectly handle
private messages correctly.
Make the following changes to line number 2030 of RBBS-PC.BAS and recompile
the program.
2030 IF Q = 0 THEN _
MESSAGE.TO$ = "ALL"_
ELSE CALL ALLCAPSD (B$(),1) : _
MESSAGE.TO$ = B$(1)
IF Q > 0 AND _ ' TF031801
LEN(B$(1)) < 2 THEN _ ' TF031801
CALL QTPUT ("Invalid user name! Try again.",1) : _ ' TF031801
GOTO 2020 ' TF031801
--------------------------------TF032001---------------------------------------
RBBS-PC.EXE RBBS-PC.BAS 03/20/87 If a user specified that RBBS-PC was to
RBBSSUB1.BAS answer on 0 rings AND wanted to "shoot
RBBS-VAR.BAS himself in the foot" by enabling remote
users to drop to DOS or exit to DOORS,
RBBS-PC CPC15-1A would not allow it. RBBS-
VAR.BAS should have the variable
SHOOT.YOURSELF added to it. The lines 10930
and 10970 in RBBS-PC.BAS should be
modified as follows:
10930 IF DOS.VERSION < 2 OR _ ' TF032001
(REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _ ' TF032001
A$ = "Remote DOS unavailable" : _
RETURN
10970 IF (NOT DOORS.AVAILABLE) OR _ ' TF032001
(REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _ ' TF032001
A$ = "All doors locked!" : _
RETURN
Line 118 in RBBSSUB1.BAS should be changed as follows:
118 INPUT #2, TURN.PRINTER.OFF,_ ' Turn printer off after each recycle
DIRECTORY.PATH$, _ ' Where dir files are stored
MIN.SEC.TO.VIEW, _
LIMIT.SEARCH.TO.FMS, _
DEFAULT.CATEGORY.CODE$, _
DIR.CATEGORY.FILE$, _
NEW.FILES.CHECK, _
MAX.DESC.LEN, _
SHOW.SECTION, _
COMMANDS.IN.PROMPT, _
NEWUSER.SETS.DEFAULTS, _
HELP.PATH$, _
HELP.EXTENSION$, _
MAIN.COMMANDS$, _
FILE.COMMANDS$, _
UTIL.COMMANDS$, _
GLOBAL.COMMANDS$, _
SYSOP.COMMANDS$
ALL.OPTS$ = MAIN.COMMANDS$ + FILE.COMMANDS$ + UTIL.COMMANDS$ + _
GLOBAL.COMMANDS$ + SYSOP.COMMANDS$
HELP.EXTENSION$ = "." + HELP.EXTENSION$
BEG.MAIN = 1
BEG.FILE = LEN(MAIN.COMMANDS$) + BEG.MAIN
BEG.UTIL = LEN(FILE.COMMANDS$) + BEG.FILE
HELP$(3) = HELP.PATH$ + HELP$(3)
HELP$(4) = HELP.PATH$ + HELP$(4)
HELP$(7) = HELP.PATH$ + HELP$(7)
HELP$(9) = HELP.PATH$ + HELP$(9)
'
' *****************************************************************************
' * ESTABLISH COMMUNICATION PORT REGISTERS AND COMMANDS *
' * GET DOS SUB-DIRECTORY RBBS-PC OPTIONS *
' *****************************************************************************
'
INPUT #2, UPLOAD.PATH$, _ ' Where upl dir goes
FMS.DIRECTORY$, _ ' Shared dir in FMS
ANS.MENU$, _
REQUIRED.QUESTIONNAIRE$,_
REMEMBER.NEW.USERS,_
SURVIVE.NOUSER.ROOM,_
PROMPT.HASH$,_
START.HASH,_
LEN.HASH,_
PROMPT.INDIV$,_
START.INDIV,_
LEN.INDIV
INPUT #2, BYPASS.MSGS, _
MUSIC, _
RESTRICT.BY.DATE, _
DAYS.TO.WARN, _
DAYS.IN.SUBSCRIPTION.PERIOD, _
CALLBACK.VERIFICATION, _
RESTRICT.VALID.CMDS, _
NEW.USER.DEFAULT.MODE, _
NEW.USER.LINE.FEEDS, _
NEW.USER.NULLS, _
NEW.USER.BELL, _
NEW.USER.CASE, _
NEW.USER.MARGINS, _
WRAP.CALLERS.FILE$, _
REDIRECT.IO.METHOD, _
GO.TO.SHELL, _
HALT.ON.ERROR, _
NEW.PUBLIC.MSGS.SECURITY, _
NEW.PRIVATE.MSGS.SECURITY, _
SECURITY.NEEDED.TO.CHANGE.MSGS, _
SL.CATEGORIZE.UPLOADS, _
BAUDOT, _
TIME.TO.DROP.TO.DOS, _
EXPIRED.SECURITY, _
DTR.DROP.DELAY, _
ASK.IDENTITY, _
USE.EXTERNAL.XMODEM, _
BUFFER.SIZE, _
MLCOM, _
SHOOT.YOURSELF, _ ' TF032001
F7.MESSAGE$, _
NEW.USER.DEFAULT.PROTOCOL$, _
NEW.USER.GRAPHICS$, _
NET.MAIL$, _
MASTER.DIRECTORY.NAME$, _
PROTOCOL.PATH$, _
UPCAT.HELP$, _
ALWAYS.STREW.TO$, _
DUMMY$
INPUT #2, DF,_
MODEM.INIT.WAIT.TIME, _
MODEM.COMMAND.DELAY.TIME, _
TURBO.RBBS, _
SUBDIR.COUNT,_
DF,_
UPLOAD.TO.SUBDIR,_
DF,_
UPLOAD.SUBDIR$,_
RESTRICT.BAUD,_
USE.COLOR,_
DISKFULL.GO.OFFLINE,_
EXTENDED.LOGGING,_
MODEM.RESET.COMMAND$,_
MODEM.COUNT.RINGS.COMMAND$,_
MODEM.ANSWER.COMMAND$,_
MODEM.GO.OFFHOOK.COMMAND$,_
DISK.FOR.DOS$, _
DUMB.MODEM, _
COMMENTS.AS.MESSAGES, _
LSB,_
MSB,_
LINE.CONTROL.REGISTER,_
MODEM.CONTROL.REGISTER,_
LINE.STATUS.REGISTER,_
MODEM.STATUS.REGISTER
IF SUBROUTINE.PARAMETER = -62 THEN _
EXIT SUB
REQUIRED.QUESTIONNAIRE$ = REQUIRED.QUESTIONNAIRE$ + ".DEF"
'
' *****************************************************************************
' * ESTABLISH RBBS-PC'S DOS SUBDIRECTORIES USAGE *
' *****************************************************************************
'
IF FMS.DIRECTORY$ <> "" THEN _
FMS.DIRECTORY$ = DIRECTORY.PATH$ + _
FMS.DIRECTORY$ + _
"." + _
DIRECTORY.EXTENTION$
UPCAT.HELP$ = HELP.PATH$ + UPCAT.HELP$ + HELP.EXTENSION$
IF SUBDIR.COUNT<1 THEN _
GOTO 123
FOR SUBDIR.INDEX = 1 TO SUBDIR.COUNT
INPUT #2,SUBDIR$
IF RIGHT$(SUBDIR$,1) <> "\" THEN _
SUBDIR$(SUBDIR.INDEX) = SUBDIR$ + "\" _
ELSE SUBDIR$(SUBDIR.INDEX) = SUBDIR$
NEXT
GOTO 125
'
' *****************************************************************************
' * SETUP DOWNLOAD DRIVES WITH NO SUBDIRECTORY SUPPORT *
' *****************************************************************************
'
--------------------------------TF032101---------------------------------------
CONFIG.EXE CONFIG.BAS 03/21/87 If a user specified that RBBS-PC was to
CNFG-SUB.BAS answer on 0 rings, the string used to
initialize the modem was incorrect. The
fix is to lines 15710 and 59020 in
CONFIG.BAS as follows:
15710 CLS
GOSUB 15780
A$ = "RBBS-PC to use modem commands you specified as follows:"
IF M14$ = "YES" THEN _
A$ ="RBBS-PC to use standard modem commands as follows:"
PRINT A$
PRINT ""
PRINT "1. Reset the modem : " + USER.RESET.COMMAND$
PRINT ""
PRINT "2. Initialize the modem : " + USER.INIT.COMMAND$
PRINT " Note: End item 2 with:"
PRINT " S0=1Q0X1 if answer on 0 rings" ' TF032101
PRINT " S0=254 if answer on >0 rings (no ring-back)"
PRINT " S0=255 if answer on >0 rings (with ring-back)"
PRINT ""
PRINT "3. Count the number of rings : " + USER.COUNT.RINGS.COMMAND$
PRINT ""
PRINT "4. Answer the phone : " + USER.ANSWER.COMMAND$
PRINT ""
PRINT "5. Take the phone off the hook : " + USER.GO.OFFHOOK.COMMAND$
PRINT ""
PRINT "6. Clear the modem's firmware : " + USER.FIRMWARE.CLEAR.CMND$
PRINT ""
PRINT "7. Initialize modem's firmware : " + USER.INITIALIZE.COMMAND$
PRINT " Note: End item 7 with:"
PRINT " Q1 if item 2 ends with S0=255"
PRINT ""
PRINT "8. Write to modem's firmware : " + USER.FIRMWARE.WRITE.CMND$
XX$ = "Select command string to change (1 to 8, CR to end)"
GOSUB 50345
LINE INPUT;HJ$
IF HJ$ = "" THEN _
RETURN
IF VAL(HJ$) <1 OR VAL(HJ$) > 8 THEN _
GOTO 15710
I = VAL(HJ$)
XX$ = "Enter modem command for item" + STR$(I) + " :"
GOSUB 50345
LINE INPUT;HJ$
GOSUB 50654
ON I GOTO 15712,15714,15716,15718,15720,15722,15724,15726
59020 OPEN "O",#1,CONFIG.FILENAME$
IF INSTR(MO$,":") < 1 THEN _
MO$ = MO$ + ":
IF INSTR(SJ$,":") < 1 THEN _
SJ$ = SJ$ + ":
IF INSTR(DRIVE.FOR.BULLETINS$,":") < 1 THEN _
DRIVE.FOR.BULLETINS$ = DRIVE.FOR.BULLETINS$ + ":
T$ = DIRECTORY.EXTENTION$
IF INSTR(DIRECTORY.EXTENTION$,".") THEN _
T$ = MID$(DIRECTORY.EXTENTION$,INSTR(DIRECTORY.EXTENTION$,".") + 1,LEN(DIRECTORY.EXTENTION$))
S$ = UPLOAD.DIRECTORY$
IF INSTR(UPLOAD.DIRECTORY$,".") THEN _
S$ = MID$(UPLOAD.DIRECTORY$,1,INSTR(UPLOAD.DIRECTORY$,".")-1)
DIRECTORY.EXTENTION$ = T$
UPLOAD.DIRECTORY$ = S$
IF DOWNLOAD.TO.SUBDIR$ = "NO" THEN _
DNLD.SUB = 0 : _
FOR I = 1 TO 99 : _
DNLD$(I) = "" : _
NEXT
IF UPLOAD.TO.SUBDIR$ = "NO" THEN _
UPLOAD.SUBDIR$ = DRIVE.FOR.UPLOADS$ + ":"
IF UPLOAD.TO.SUBDIR$ = "YES" AND UPLOAD.SUBDIR$<>"" THEN _
DRIVE.FOR.UPLOADS$ = UPLOAD.SUBDIR$
IF REQUIRED.RINGS = 0 AND _
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,5)<>"1Q0X1" THEN _ ' TF032101
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,5)="1Q0X1" ' TF032101
IF REQUIRED.RINGS > 0 AND _
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="0 " THEN _
MID$(USER.INIT.COMMAND$,INSTR(USER.INIT.COMMAND$,"S0")+3,3)="254"
'
' *****************************************************************************
' * WRITE OUT THE "RBBS-PC.DEF" FILE WITH THE SYSOP'S SPECIFIED CONFIGURATION *
' *****************************************************************************
'
Also line 60385 in CNFG-SUB.BAS should have the variable MODEM.INIT.COMMAND$
changed as follows:
MODEM.INIT.COMMAND$ = "ATM0Q1S2=255S10=30E0S0=0Q0X1" ' TF032101
--------------------------------TF032201---------------------------------------
CONFIG.EXE CNFG-SUB.BAS 03/22/87 A user could not select 10-NET as a valid
local area network (LAN). The fixes are
in lines 12470, 21810, 21870, 21890, and
21900 in CNFG-SUB.BAS as follows:
12470 DISPLAYED.PAGE.NUMBER = 8
GOSUB 30040
MAX.USR.FILE.SIZE.FRM.DEF = HIGHEST.USER.RECORD
MAX.MSG.FILE.SIZE.FRM.DEF! = HIGHEST.MESSAGE.RECORD
MAX.ALLOWED.MSGS.FRM.DEF = MAXIMUM.NUMBER.OF.MSGS
GOSUB 24800
LOCATE 3,9
PRINT "141. Maximum number of concurrent RBBS-PC's -------" + STR$(MAXIMUM.NUMBER.OF.NODES)
IF MAXIMUM.NUMBER.OF.NODES = 1 THEN _
MT$ = "single RBBS-PC copy " ELSE _
MT$ = "concurrent RBBS-PC's" : _
GOSUB 21900 : _
IF NETWORK.TYPE < 0 OR NETWORK.TYPE > 5 THEN _ ' TF032201
GOTO 21810
LOCATE 4,9
PRINT "142. Environment running " + MT$ + " ------ " + NETWORK.TYPE$
LOCATE 5,9
PRINT "143. RBBS-PC 'recycle' method when users log off --- " + RECYCLE.TO.DOS$
FILE$ = MAIN.MESSAGE.FILE$
GOSUB 30180
MAX.MSG.FILE.SIZE.FRM.DEF! = UG
LOCATE 6,9
PRINT "144. Number of records in the " + MAIN.USER.FILE$ + " file " + STRING$(16-LEN(MAIN.USER.FILE$),"-");STR$(MAX.USR.FILE.SIZE.FRM.DEF)
LOCATE 7,9
PRINT "145. Number of records in " + MAIN.MESSAGE.FILE$ + " file " + STRING$(20-LEN(MAIN.MESSAGE.FILE$),"-");STR$(MAX.MSG.FILE.SIZE.FRM.DEF!)
LOCATE 8,9
PRINT "146. Maximum number of messages allowed ------------" + STR$(MAX.ALLOWED.MSGS.FRM.DEF)
LOCATE 9,9
PRINT "147. Conference File Maintenance.
GOTO 12580
21810 CLS
LOCATE 3,5
PRINT "RBBS-PC is supported in the following:"
LOCATE 5,20
PRINT "Environment"
LOCATE 7,10
PRINT "0. Single RBBS-PC in an IBM DOS environment"
LOCATE 9,10
PRINT "1. MultiLink (multi-tasking under single DOS)
LOCATE 11,10
PRINT "2. Omninet (CORVUS)"
LOCATE 13,10
PRINT "3. PC-NET (Orchid)"
LOCATE 15,10
PRINT "4. DESQview (Quarterdeck)"
LOCATE 17,10
PRINT "5. 10 NET (Fox Research)" ' TF032201
LOCATE 19,10 ' TF032201
PRINT "6. IBM DOS (3.1 or above) file sharing not supported" ' TF032201
21870 GOSUB 50340
XX$ = "Select environment (0 to 6, ENTER to end)" ' TF032201
GOSUB 50345
LINE INPUT;X$
IF X$ = "" THEN _
RETURN
NETWORK.TYPE = VAL(X$)
GOSUB 21890
RETURN
21890 IF NETWORK.TYPE < 0 OR NETWORK.TYPE > 6 THEN _ ' TF032201
GOTO 21870 ' TF032201
21900 IF NETWORK.TYPE = 1 THEN _
NETWORK.TYPE$ = "MultiLink
IF NETWORK.TYPE = 2 THEN _
NETWORK.TYPE$ = "Omninet
IF NETWORK.TYPE = 3 THEN _
NETWORK.TYPE$ = "PC-NET
IF NETWORK.TYPE = 4 THEN _
NETWORK.TYPE$ = "DESQview"
IF NETWORK.TYPE = 5 THEN _ ' TF032201
NETWORK.TYPE$ = "10 NET" ' TF032201
IF NETWORK.TYPE = 6 THEN _ ' TF032201
NETWORK.TYPE$ = "IBM's file sharing -- future"
RETURN
'
' *****************************************************************************
' * COMMON SUBROUTINE TO HANDLE THE FUNCTION KEYS, SCROLL BETWEEN CONFIG'S *
' * PAGES OF OPTIONS, AND USER'S SELECTING A NUMERIC 4-CHARACTER OPTION. *
' *****************************************************************************
'
--------------------------------TF032301---------------------------------------
CONFIG.EXE CONFIG.BAS 03/23/87 CONFIG would always reset the option to
invoke the external protocol drivers to
"SHELL" rather than to "EXIT RBBS-PC" when
CONFIG was invoked even if "EXIT RBBS-PC"
had been selected when CONFIG was last
invoked. The fix is to line 16180 in
CONFIG.BAS as follows:
16180 CALL GETYESNO ("Use the SHELL command to invoke protocol drivers?",GO.TO.SHELL$)
IF GO.TO.SHELL$ = "YES" THEN _
GO.TO.SHELL$ = "SHELL" : _
RETURN
IF GO.TO.SHELL$ = "NO" THEN _
GO.TO.SHELL$ = "EXIT RBBS-PC" ' TF032301
RETURN
'
' *****************************************************************************
' * SHOULD "DOORS" BE AVAILABLE? *
' *****************************************************************************
'
--------------------------------TF032401---------------------------------------
RBBS-PC.EXE RBBSSUB1.BAS 03/24/87 RBBS-PC does not always connect with users
who are not patient enough to allow auto
BAUD detect. Make the following changes to
line 325 of RBBSSUB1.BAS:
325 IF EC = 57 THEN _
LINE.STATUS = INP(LINE.STATUS.REGISTER) : _
EC = 0 ' TF032401
IF SUBROUTINE.PARAMETER = 5 THEN _
EXIT SUB
CALL FINDTIME (TI!)
IF TI! > CONNECT.DELAY! THEN _
CALL UPDTCALR ("Connect timeout",1) : _
SUBROUTINE.PARAMETER = 4 : _
EXIT SUB
IF DUMB.MODEM THEN _
BAUD.TEST = VAL(MODEM.INIT.BAUD$) : _
GOTO 326
IF INSTR(MODEM.RESPONSE$,"CONNECT") THEN _
BAUD.TEST = VAL(MID$(MODEM.RESPONSE$,INSTR(MODEM.RESPONSE$,"CONNECT") + 8,4)) : _
GOTO 326
IF INSTR(MODEM.RESPONSE$,"ONLINE") THEN _
BAUD.TEST = VAL(MID$(MODEM.RESPONSE$,INSTR(MODEM.RESPONSE$,"ONLINE") + 7,4)) : _
GOTO 326
GOTO 324
--------------------------------TF032402---------------------------------------
RBBS-PC.EXE RBBS-PC.BAS 03/24/87 When a users subscription expires the record
of his expiration is sometimes recorded
incorrectly and his security level is
increased. Thanks to Randy Sun and Charles
Doughty for identifying and fixing this
problem. Make the following change to line
number 459 in RBBS-PC.BAS:
459 GOSUB 9500
LAST.DATE.TIME.ON.SAVE$ = LAST.DATE.TIME.ON$
IF EXIT.TO.DOORS THEN _
USER.LOGON.TIME! = (VAL(MID$(LAST.DATE.TIME.ON$,10,2))*3600) + _
(VAL(MID$(LAST.DATE.TIME.ON$,13,2))*60) : _
CALL TIMEREMAIN (TIME.REMAINING!)
USER.FILE.INDEX = LOC(5)
GOSUB 5135
GOSUB 5170
IF REG.DAYS.REMAINING < 0 THEN _
CALL QTPUT (LG$(9)+" - security reset to "+STR$(EXPIRED.SECURITY),1):_
LOGON.ERROR.INDEX = 9 : _
USER.SECURITY.LEVEL = EXPIRED.SECURITY : _
LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _ ' TF032402
GOSUB 5135
USER.SECURITY.LEVEL$ = STR$(USER.SECURITY.LEVEL)
IF USER.SECURITY.LEVEL > -1 THEN _
USER.SECURITY.LEVEL$ = MID$(USER.SECURITY.LEVEL$,2)
FILE.NAME$ = "LG" + USER.SECURITY.LEVEL$ + ".DEF"
BYPASS.TIME.CHECK = TRUE
CALL OPENWORK (FILE.NAME$)
IF EC = 0 THEN _
GOSUB 6000
BYPASS.TIME.CHECK = FALSE
--------------------------------TF032403---------------------------------------
CONFIG.EXE CNFG-SUB.BAS 03/24/87 Maximum number of pages displayed is
incorrect in CONFIG. Randy Sun and Charles
Doughty identified and corrected this
problem. Change the variable in line
number 60385 in CNFG-SUB.BAS as follows:
MAXIMUM.DISPLAYABLE.PAGES = 13 ' TF032403
--------------------------------TF032404---------------------------------------
RBBS-PC.DOC (none) 03/24/87 The newer versions of the Hayes 2400 BAUD
modem ROM (249 or greater) and some clones
do not allow RBBS-PC to recycle properly
when the &D switch is set to a value of "3",
as it is in CONFIG for option 211. They do
however function with the &D switch set to
"2". If you are not experiencing a problem
with your 2400 BAUD modem do not apply this
change. A special thanks to Lyndon Payne
for identifying this problem.
--------------------------------TF032405---------------------------------------
RBBS-PC.DOC 03/24/87 The documentation for linking RBBS-PC is not
correct. The module name for "ARC View"
is QBARCV2 not QB2ARCV. The module name for
10 Net support is 10-NET not 10NET. The
reference to MNP.LIB is not required since
MICROCOM MNP support is no longer provided.
The documentation should read as follows:
25.3 LINKing RBBS-PC
--------------------
RBBS-PC.OBJ can be LINKed to produce RBBS-PC.EXE with the LINKer command
(all on one line):
LINK RBBS-PC+RBBSSUB1+RBBSSUB2+xxxCOM+QBARCV2+ANSI+XMODEM+RBBSML+BDRIVEC2+
PC-NET+10-NET+RBBSUTIL+RBBSDV+PREFIX,,,C:/MAP/LINE;
NOTE: xxxCOM must be replaced with GWCOM if using the QuickBASIC compiler
and IBMCOM if using the IBM Version 2.0 compiler. PREFIX is only
required if linking with Microsoft's QuickBASIC compiler output.
XMODEM.OBJ and RBBSUTIL.OBJ are different .OBJ from earlier
versions OF RBBS-PC. MAKE SURE YOU HAVE THE CORRECT ONE!
The above LINK command assumes that all the necessary .OBJ files are on the
default drive and the necessary .LIB files are on the "C" drive.
--------------------------------TF032406---------------------------------------
APPENDIX.DOC 03/24/87 The documentation for supporting Everex 2400
BAUD modems is not correct. A special thanks
to Sam Brown for identifying the documenta-
tion error and and Carl Margolis of Everex
in assisting with the revision to the
documentation. Appendix N should read as
follows:
APPENDIX N -- RBBS-PC and THE Everex 2400 modem switch settings
---------------------------------------------------------------
The Everex Evercom 24 is an internal 2400 BAUD modem. It has 4 switches on
the mounting bracket. If you are using COM1 then all switches should be in
the OFF position. If you are using COM2 see the Installation Guide for the
correct switch settings.
The Evercom does not have non-volitile memory like the Hayes 2400 and the
ATZ command will reset the modem to factory defaults. It is therefore not
necessary to use CONFIG to set the Hayes 2400 defaults. Because of this
major difference you must use CONFIG option 205 to change the standard
modem defaluts. Select parameters 2 and 5 enter the command just as it is
but with the addition of &D2. This will instruct RBBS-PC to add &D2 to
the standard modem initialization string each time the system recycles.
Please note that although the Evercom 24 manual indicates that &D2 is the
default that this is a misprint in their manual and &D0 is the real default
for the &D command.
A special thanks goes to Carl Margolis (Everex) for his help in identifying
these restrictions so that Evercom 24 users can now reliably use RBBS-PC.
Do not select option 205 if you are using an Everex 1200 BAUD modem.
--------------------------------TF032407-------------------------------------
CONFIG.EXE CONFIG.BAS 03/24/87 There is a confusion of the use of the
upload category codes. It is possible to
have users categorize uploads even when not
using the File Managment System (FMS).
It is also possible to deactivate this
option entirely.
If you do NOT want users to categorize the files they upload (independent of
whether or not you are using FMS), simply set CONFIG option 193 to the security
level higher than any user could obtain.
If you DO want users to categorize the files they upload you must:
1. Set CONFIG option 193 to the security level of the "U>pload" command.
2. Create a help file to show users when they are asked to categorize
an uploaded file that might look something like:
Category Code Category Name Description
1 Utilities General Utilities
2 Games Games
3 Communications Communications Software
3. Set CONFIG option 67 to the name of the file that you created in
item 2.
4. If, and ONLY if, you are using the FMS, create a second file in the
format described on page 69 of the RBBS-PC CPC15-1A documentation and
set CONFIG option 196 to the name of the file created in this format.
--------------------------------TF032501-------------------------------------
RBBS-PC.EXE RBBSSUB1.BAS 03/25/87 If a user logs on and selects all upper
case output AND color graphics, the color
graphics will not be correct. Randy Fuchs
both identified the problem and provided the
solution. The fix is to line 1437 in
in RBBSSUB1.BAS as follows:
1437 IF LOCAL.USER THEN _
GOTO 1450
IF UPPER.CASE AND GR <> 2 THEN _ ' TF032501
CALL ALLCAPS (A$)
IF INP(MODEM.STATUS.REGISTER) > 127 THEN _
PRINT #3,A$;
--------------------------------TF032601-------------------------------------
CONFIG.EXE CNFG-SUB.BAS 03/26/87 A line number, 12312, should have been
12512 in order not to get any warning
messages when using BLED to apply the .MRG
files. To correct this change line number
12312 in CNFG-SUB.BAS as follows:
12512 PRINT "221. Time of day to exit to DOS ------------------- " + TIME.TO.DROP.TO.DOS$ ' TF032601
LOCATE 4,9
PRINT "222. Net mail to invoke is ------------------------ " + NOT.YET.IN$ ' NET.MAIL$
GOTO 12580
--------------------------------TF032602-------------------------------------
RBBS-PC.EXE RBBSSUB2.BAS 03/26/87 When the following two conditions were true:
1. file searches were not limited
to FMS, and
2. users could categorize uploads;
the non-FMS ".DIR" files were not being
properly handled. The fix is to line 20720
in RBBSSUB2.BAS as follows:
20720 A$ = "Upload best fits what category (H=help)"
SUBROUTINE.PARAMETER = 1
CALL TGET
IF SUBROUTINE.PARAMETER = -1 THEN _
B$ = DEFAULT.CATEGORY.CODE$ : _
GOTO 20722
IF Q = 0 THEN _
GOTO 20719
CALL ALLCAPS (B$(1))
IF B$(1) = "H" THEN _
GOTO 20719
CALL CHKNARY (B$(1),CATEGORY.NAME$(),NUM.CATEGORIES,FOUND)
IF FOUND>0 THEN _
Y$ = CATEGORY.CODE$(FOUND) : _
IF LEN(Y$) > 0 AND LEN(Y$) < 4 AND INSTR(Y$,",")=0 THEN _
GOTO 20722
Y$ = ""
IF NOT LIMIT.SEARCH.TO.FMS THEN _
STREW.TO$ = DIRECTORY.PATH$ + B$(1) + "." + DIRECTORY.EXTENTION$ : _
CALL FINDIT (STREW.TO$) : _
IF NOT OK THEN _
STREW.TO$ = "" _ ' TF032601
ELSE _ ' TF032601
GOTO 20722 ' TF032601
CALL QTPUT ("No such category "+B$(1),1)
GOTO 20719
======END OF TEMPORARY FIXES FOR RBBS-PC CPC151-A AND CONFIG VERSION 3.00======